library(RWeka);
source("src/craftData.r");
source("src/unbindData.r");
summary<-matrix(nrow=6);
rownames(summary)<-c("Cost","Quality","False positives","False negatives","True positives","True negatives");
selectors=list(breast="left", img.type="mlo");
trainData<-craftData(dataAll,selectors=selectors);
trainData<-unbindData(trainData,names(info),c("class"));

#source("src/scenarioBody.r");
